home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swaga_c.zip / CURSOR.SWG / 0016_Set CURSOR Shape.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  625b  |  19 lines
  1. {****************************************************************************
  2.  * Procedure ..... SetCursor()
  3.  * Purpose ....... To set the cursor shape
  4.  * Parameters .... nTop       Top line of cursor
  5.  *                 nBottom    Bottom line of cursor
  6.  * Returns ....... N/A
  7.  * Notes ......... None
  8.  * Author ........ Martin Richardson
  9.  * Date .......... May 13, 1992
  10.  ****************************************************************************}
  11. PROCEDURE SetCursor( nTop, nBottom : INTEGER ); ASSEMBLER;
  12. ASM
  13.      MOV  AH, 1
  14.      MOV  CH, BYTE PTR nTop
  15.      MOV  CL, BYTE PTR nBottom
  16.      INT  10h
  17. END;
  18.  
  19.